home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SCRNE2.SDA / FLASH! (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  613b  |  13 lines
  1. 10 REM  FLASH!
  2. 20 RESTORE:FORI=830TO900:READA%:POKEI,A%:NEXT:POKE53280,0:POKE53281,0
  3. 30 A$="FLASH!":PRINT"[147]";:FORI=0TO10:FORJ=1TO15:POKE646,J:PRINTA$;:NEXTJ,I
  4. 40 SYS830:PRINT"[147]THANK YOU!":END
  5. 830 DATA169,0,133,198,169,4,141,91,3,141
  6. 840 DATA96,3,168,169,64,141,127,3,185,128
  7. 850 DATA3,170,173,18,208,208,251,189,0,8
  8. 860 DATA73,128,157,0,8,202,224,255,208,243
  9. 870 DATA238,91,3,238,96,3,136,208,225,206
  10. 880 DATA126,3,208,251,206,127,3,208,246,165
  11. 890 DATA198,240,197,96,0,0,0,232,255,255,255
  12. 900 REM  THIS ROUTINE QUICKLY REVERSES  ALL SCREEN DATA CYCLING UNTIL A KEY IS  PRESSED. POKE DIFFERENT VALUES INTO 844 OR CHANGE THE FIFTH DATA IN LINE 840.
  13.